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Design by H.-J. Bohling 


The popular but already somewhat outdated programming language MCS- 
51 BASIC does not have any instructions for controlling an I2C bus. 
Fortunately, it’s easy to add home-made instructions to this version of BASIC. 


More than twelve years ago, when Intel’s develop- 
ment engineers made their BASIC interpreter 
(which was actually intended for internal, experi- 
mental use) available to the general public in the 
form of the mask-programmed 8052-AH-BASIC 
microcontroller, the development of 12C communi- 
cations was still in its infancy. It’s thus no surprise 
that no thought was given to instructions for con- 
trolling an I?C bus. Of course, it is possible to pro- 
gram an I2C interface using the regular instruc- 
tions, since there is no minimum clock frequency 
specified for 12C communications. If you want to 
address only a few I2C components, you can easily 
incorporate the routines Send Byte, Get Byte, Start 
and Stop, as shown in Listing 1, into your own pro- 
grams. These routines use port P1.6 as the serial 
data line (SDA) and port P1.5 as the serial clock line 
(SCL). The circuitry external to the microcontroller 
is limited to four components, as shown in Fig- 
ure 1. However, this solution does not have much 
to offer in terms of speed. 

since its first release, MCS-51 BASIC has been 
freed from the rigid shell of the original special 
microcontroller. It is now used quite often in a vari- 
ety of different versions, including those employed 
in Elektor projects. It is almost unique among high- 
level languages in the ease with which it can be 
extended with supplementary instructions. The 
author has thus implemented the previously 
described routines as MCS-51 BASIC instructions, 
with which a clock rate of around 40 kHz can be 
achieved. Using these four new instructions 
(2COUT, I2CGET, I2CSTART and I2CSTOP) is 
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CLKL 


=0DFH : CLKH=20H : 
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* I2C-Communication with MCS-51-BASIC 
* over Ports 1.5 (SCL) and 1.6 (SDA) 
* 

* (C) H.-J. Boehling 07.29.99 

* www.germany.net/teilnehmer/101.107378 


* www.isis.de/members/~boehling 
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DATL=OBFH : DATH=40H 


REM +++ I2C Test t+++tHHH+H+eHtHHe+eHt++t+t++t+tttttt 
REM This test sends out value 0 to 255 to a PCF8574 and read it 


ADDR=040H : REM I2C address 
FOR BYTEOUT=0 TO 255 

GOSUB 270 

IF (ACK.OR.OUT)>0 THEN 220 
GOSUB 350 


IF (ACK.OR.OUT)>0 THEN 220 
PRINT "Read back:”,BYTEIN 


NEXT 
GOTO 
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GOSUB 810 : 


REM Stop condition 


TF ACK>0 THEN PRINT "ACK farted!” 
IF OUT>0 THEN PRINT "Time out!” 


GOTO 150 

REM kkk Send Data to ILA RRAKRKRRRKAR RR KKK RK XK 
GOSUB 730 : REM Start condition 
BOUT=ADDR.AND.OFEH : REM Set write mode 
GOSUB 420 : REM Send address out 
BOUT=BYTEOUT 

GOSUB 420 : REM Send byte out 

GOSUB 810 : REM Stop condition 

RETURN 

REM kkk Read Data from T2C kkkkkkkkkkkkkkkxkxkxk 
GOSUB 730 : REM Start condition 
BOUT=ADDR.OR.1 : REM Set read mode 

GOSUB 420 : REM Send address out 

GOSUB 580 : REM read byte in 

GOSUB 810 : REM Stop condition 

RETURN 

REM === 12C Send Byte =====S=s===s==s===s======= 
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Listing I. 


Listing 2. 
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BIT=80H : WERT=0.5 
FOR I=1 TO 8 
SDA=(BOUT.AND.BIT) *WE 
BIT=BIT/2 : WERT=WERT 
GOSUB 860 REM Make 
PT1=PORT1.AND.DATL 
GOSUB 890 REM Make 
NEXT 

REM —- Get ACK 

GOSUB 860 REM Make 
GOSUB 950 REM Make 
GOSUB 890 REM Make 
ACK=PORT1.AND.DATH 
GOSUB 860 REM Make 
RETURN 

REM === I2C Get Byte 
BYTEIN=0 : WERT=0.5 
FOR I=1 TO 8 

GOSUB 860 REM Make 
GOSUB 950 REM Make 
GOSUB 890 REM Make 


SDA=(PORT1.AND.DATH) /WERT 
BYTEIN=BYTEIN.OR.SDA : 
REM Set pointer to next bit 


WERT=WERT+WERT 


RT : REM Set data to bit of byte 
+WERT REM Set pointer to next bit 
clock low 
PORT1=PT1.OR.SDA : 
clock high 


REM Send bit out 


clock low 
data high 
elock hagh 
REM If data is high ACK failed 
clock low 


clock low 
data high 
clock high 
REM Read data... 
REM. GO bitloL  -byLe 








NEXT 

REM —- Do ACK -= 

GOSUB 860 REM Make clock low 

GOSUB 920 REM Make data low to set ACK oK 
GOSUB 890 REM Make clock high 

RETURN 

REM === I2C Start condition ================ 
OUT=0 REM Reset time out counter 

GOSUB 950 REM Make data high 

GOSUB 890 REM Make clock high 

IF OUT=3 THEN 800 REM Wait 3 times for clock and data 
IF (PORT1.AND.60H)<>60H THEN OUT=OUT+1 GOTO 770 
GOSUB 920 REM Make data low (start condition) 
RETURN 

REM === I2C Stop condition ================= 
GOSUB 920 REM Make data low 

GOSUB 890 REM Make clock high 

GOSUB 950 REM Make data high 

RETURN 

REM —- Set Port 1.5 (SCL) to Low 
PT1=PORT1.AND.CLKL PORT1=PT1 

RETURN 

REM —- Set Port 1.5 (SCL) to High ——- 
PT1=PORT1.OR.CLKH : PORT1=PT1 

RETURN 

REM —- Set Port 1.6 (SDA) to Low 
PT1=PORT1.AND.DATL PORT1=PT1 

RETURN 

REM —- Set Port 1.6 (SDA) to High ——- 


PT1=PORT1.OR.DATH : P 
RETURN 


[2C with MCS-5 I -BASIC 


ORT1=PT1 


child's play, as can be seen from the program ‘I2C 
Communication Test’ shown in Listing 2. This pro- 
gram demonstrates communication with a 
PCF8574 at address 40H. It writes the values 0 
through 255 to the I/O IC and reads them back via 
the I2C bus. 

The source listing of the supplementary instruc- 
tions is available on diskette from Readers Services 
(order number 006006-1) or from the download area 
of the Elektor Internet site (www.elektor-electron- 
ics.co.uk). It must be assembled into a hex file 
using a Suitable cross-assembler. This can then be 
burned into a 16 kB EPROM, along with the origi- 
nal BASIC interpreter. A recommended cross- 
assembler is the freeware program ASEM-51 from 
W. W. Heinz. The EPROM can also be burned ‘on 
board’, if the hardware of your MCS-51-BASIC sys- 
tem allows this. For this, all you need is the pro- 
gram KPROMMER.LIS. Both of these programs are 
available free of charge from the 80C32-BASIC con- 
trol computer Internet site wwwiisis.de/mem- 
bers/~boehling. If you have absolutely no interest 
in burning your own EPROM, you can obtain a 
ready-programmed version of the extended BASIC 
interpreter (in a 27C128 or 27C256) from our Read- 
ers Services under order number 006505-1. 

(000024-1) 
Text (German original): R. Gerstendorf 


Literature: IC Bus, Elektor Electronics (Publishing), 
ISBN 0 905705 47 5 
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Figure |. The external components needed for 
an |4C interface. 


Application example using the four new commands. 
REM ae Bis Gis Sas See ous Cus Tas Tak Tak Tak Sas Sus es Ges Sas a ast as ie as as Gs Se ee aa Boe ae 

REM * I2C Communication Test * 

REM * (C) H.-J. Boehling 08.29.99 * 

REM KER RKEKEKEK oe ee ee eee ee ee eee oe ee eee oe Cee 
ADDR=40H 

FOR I=0 TO 255 

PRINT I, 

REM ===== 12C Write =============== 
I2CSTART 

IF DBY(18H)=0 I2CPUT (ADDR) ELSE 260 

IF DBY(18H)=0 I2CPUT (I) ELSE 260 

I2CSTOP 

REM ===== I2C Read ================ 
I2CSTART 

IF DBY(18H)=0 I2CPUT (ADDR.OR.1) ELSE 260 


IF DBY(18H)=0 I2CGET B ELSE 260 
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PRINT B 

I2CSTOP 

NEXT 

REM- malie for kay e= == === aaa 
K=GET IF K>0 THEN 210 

PRINT "Continue?” 

K=GET IF K=0 THEN 230 

GOTO 60 

REM ===== I2C Error =============== 


STATUS=DBY (18H) 

FOR J=1 TO 3 I2CSTOP NEXT 

IF STATUS.AND.2=2 THEN PRINT "Time out error!” 
IF STATUS.AND.4=4 THEN PRINT "Busy error!” 

IF STATUS.AND.8=8 THEN PRINT "No acknowlege error!” 
GOTO 90 
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